home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapschg.plp < prev    next >
Text File  |  1993-11-30  |  3KB  |  102 lines

  1. /************************************************************************
  2. *    設定情報の変更処理                        *
  3. ************************************************************************/
  4. /*    ファイルからユーザー設定情報を読み込む    */
  5. %LOADset{
  6.     var newfile[64];
  7.     SNDMSG({nyuryo_f.snd});
  8.     footnote({ユーザー設定情報を読み込むファイルを指定して下さい});
  9.     newfile:=@filesel({USR});
  10.     case    (newfile<>{},
  11.         {Yes},    {%newdir @getcdir;
  12.             case    (@nochar(newdir)==3,
  13.                 {Yes},    {newfile:=newdir|newfile},
  14.                 {No},    {newfile:=newdir|{\}|newfile});
  15.             case    (@filechk(newfile),
  16.                 {Yes},    {%ExcPilot {#}|newfile;
  17.                     ExcPilot;
  18.                     init;
  19.                     SETFILE1:=@tail(newfile,{\});});});
  20.     setcdir(DIR1);
  21. };
  22.  
  23. /*    ファイルからPC-VAN設定情報を読み込む    */
  24. %LOADvan{
  25.     var newfile[64];
  26.     SNDMSG({nyuryo_f.snd});
  27.     footnote({PC-VANでの処理の設定を読み込むファイルを}|
  28.         {指定して下さい});
  29.     newfile:=@filesel({VAN});
  30.     case    (newfile<>{},
  31.         {Yes},    {%newdir @getcdir;
  32.             case    (@nochar(newdir)==3,
  33.                 {Yes},    {newfile:=newdir|newfile},
  34.                 {No},    {newfile:=newdir|{\}|newfile});
  35.             case    (@filechk(newfile),
  36.                 {Yes},    {%ExcPilot {#}|newfile;
  37.                     ExcPilot;
  38.                     setcdir(DIR1);
  39.                     SETFILE2:=@tail(newfile,{\});});});
  40.     setcdir(DIR1);
  41. };
  42.  
  43. /*    ファイルからユーザー設定情報とPC-VAN設定情報を読み込む    */
  44. %LOADall{
  45.     var newfile1[64];
  46.     var newfile2[64];
  47.     SNDMSG({nyuryo_f.snd});
  48.     footnote({設定を読み込むファイル名を指定して下さい});
  49.     newfile1:=@filesel({USR});
  50.     case    (newfile1<>{},
  51.         {Yes},    {%newdir @getcdir;
  52.             case    (@nochar(newdir)==3,
  53.                 {Yes},    {newfile1:=newdir|newfile1},
  54.                 {No},    {newfile1:=newdir|{\}|newfile1});
  55.             newfile2:=@body(newfile1,,{.})|{.VAN};
  56.             case    (@filechk(newfile1) && @filechk(newfile2),
  57.                 {Yes},
  58.                 {%ExcPilot {#}|newfile1|{;#}|newfile2;
  59.                 ExcPilot;
  60.                 init;
  61.                 setcdir(DIR1);
  62.                 SETFILE1:=@tail(newfile1,{\});
  63.                 SETFILE2:=@tail(newfile2,{\});},
  64.                 {No},
  65.                 {SNDMSG({kaknin_f.snd});
  66.                 display({ユーザー設定ファイル(*.USR)}|
  67.                 {とPV-VANでの処理設定ファイル(*.VAN)の両}|
  68.                 {方が同一ディレクトリに必要です\n});
  69.                 wait(2);});});
  70.     setcdir(DIR1);
  71. };
  72.  
  73. /*    設定を元に戻す    */
  74. %CANCEL{
  75.     setcdir(DIR1);
  76.     #PVAPSET.SET;
  77.     #PVAPVAN.SET;
  78.     init;
  79.     setcdir(DIR1);
  80.     SETFILE1:={標準設定};
  81.     SETFILE2:={標準設定};
  82. };
  83.  
  84. /*    設定読み込みメニュー    */
  85. %SETCHNG{
  86.     loop({
  87.     SNDMSG({erande_f.snd});
  88.     footnote({現在のユーザー設定ファイル }|SETFILE1|
  89.         {  PC-VANでの処理設定ファイル }|SETFILE2);
  90.     select({どの設定を読み込みますか?},
  91.         99999,{im({No})},
  92.         {       ユーザー設定       },{LOADset;im({Yes})},
  93.         { PC-VANでの処理設定 },{LOADvan;im({Yes})},
  94.         {        両方の設定        },{LOADall;im({Yes})},
  95.         {   両方の設定を元に戻す   },{CANCEL;im({Yes})},
  96.         {          終  了          },{im({No})});
  97.     });
  98. };
  99.  
  100. /*    実行    */
  101. SETCHNG;
  102.